﻿Public Class Main

    Private Sub QuảnLýToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýToolStripMenuItem.Click

    End Sub

    Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub QuảnLýNhânViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýNhânViênToolStripMenuItem.Click
        Dim frm As New TiepNhanNhanVien()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýĐộcGiảToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýĐộcGiảToolStripMenuItem.Click
        Dim frm As New LapTheDocGia()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýSáchToolStripMenuItem.Click
        Dim frm As New TiepNhanSach()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýLoạiSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýLoạiSáchToolStripMenuItem.Click
        Dim frm As New QuanLyMuonTraSach()
        frm.ShowDialog()
    End Sub

    Private Sub ChoMượnSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChoMượnSáchToolStripMenuItem.Click
        Dim frm As New ChoMuonSach()
        frm.ShowDialog()
    End Sub

    Private Sub NhậnTrẳToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhậnTrẳToolStripMenuItem.Click
        Dim frm As New NhanTraSach()
        frm.ShowDialog()
    End Sub

    Private Sub LậpPhiếuThuTiềnPhạtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LậpPhiếuThuTiềnPhạtToolStripMenuItem.Click
        Dim frm As New LapPhieuThuTienPhat()
        frm.ShowDialog()
    End Sub

    Private Sub GhiNhậnMấtSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhiNhậnMấtSáchToolStripMenuItem.Click
        Dim frm As New GhiNhanMatSach()
        frm.ShowDialog()
    End Sub

    Private Sub ThanhLýSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThanhLýSáchToolStripMenuItem.Click
        Dim frm As New ThanhLySach()
        frm.ShowDialog()
    End Sub

    Private Sub TìmKiếmĐộcGiảToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TìmKiếmĐộcGiảToolStripMenuItem.Click
        Dim frm As New TimKiemDocGia()
        frm.ShowDialog()
    End Sub

    Private Sub TÌmKiếmSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TÌmKiếmSáchToolStripMenuItem.Click
        Dim frm As New TraCuuSach()
        frm.ShowDialog()
    End Sub

    Private Sub CậpNhậtBảngThamSốToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CậpNhậtBảngThamSốToolStripMenuItem.Click
        Dim frm As New Thamso()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýLoạiSáchToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýLoạiSáchToolStripMenuItem1.Click
        Dim frm As New Capnhattheloaisach()
        frm.ShowDialog()
    End Sub

    Private Sub ThốngKêĐộcGiảToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThốngKêĐộcGiảToolStripMenuItem.Click
        Dim frm As New Thongkedocgia()
        frm.ShowDialog()
    End Sub

    Private Sub ĐộcGiảNợTiềnPhạtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐộcGiảNợTiềnPhạtToolStripMenuItem.Click
        Dim frm As New ThongKeDocgianotienphat()
        frm.ShowDialog()
    End Sub

    Private Sub TheoThểLoạiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoThểLoạiToolStripMenuItem.Click
        Dim frm As New ThongKeSachTheoTheLoai()
        frm.ShowDialog()
    End Sub

   

    Private Sub ĐăngNhậpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐăngNhậpToolStripMenuItem.Click
        Dim frm As New DangNhap()
        frm.ShowDialog()
    End Sub

    Private Sub ThốngKêMượnSáchVàTrảSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThốngKêMượnSáchVàTrảSáchToolStripMenuItem.Click
        Dim frm As New ThongKeSach
        frm.ShowDialog()
    End Sub

    Private Sub ThốngKêTìnhHìnhChoMượnSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThốngKêTìnhHìnhChoMượnSáchToolStripMenuItem.Click
        Dim frm As New ThongKeTinhHinhChoMuonSach
        frm.ShowDialog()
    End Sub

    Private Sub ThanhLySachToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThanhLySachToolStripMenuItem.Click
        Dim frm As New ThanhLySach
        frm.ShowDialog()
    End Sub
End Class
